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2. 



Presented here Is part of the graduate work that I am 
doInK In the much broader area of protocol analysis (see 
A.I. memo 137 ), The goal of functional abstraction Is to 
find a procedure that satisfies a given set of fragmentary 
protocol s.O Thus functional abstraction Is the Inverse 
operation to taking a set of protocols of a routine. The 

basic technique In functional abstraction (which we shal 1 
call IMAGE) Is to find a minimal horoomorphlc Inane of the 
set of fragmentary protocols. It Is Interesting to note 
that the technique of finding a minimal homomorphlc l^ia^e Is 
the same ontt used to compute the schematized goal tree In 
A. I* nemo 137 f We define (a < b) to mean that a Is erased 
and b Is written In Its place. We shall use (a : b) to m*an 
that the value of b Is a. Consider the folowtng protocol 
for a function f: 



arguments of f ■ (3) 
() < 1) 
() : (pred 3)) 

1 < (3 : (fen 3 1))) 
3 < (2 : (fen 3)» 
() : (pred 2)) 

3 < (6 : (fen 2 3))) 

2 < (1 (fen 2)) 



CO < (pred 1)) 

(6 < (6 : (fen 1 6))) 
(1 < (0 : (fen 1))) 
(T : (pred 0)) 
value of f ■ 6 

I* IMAGE knows about the functions *arop, times, and subl 
then It will find the following minimal homomorphlc | ma « 
for the above protocol: 

(defprop f 

(lambda (arcl) (pro* (tempi) 

(setq tempi 1) 
labell (cond ((zerop ar B l> (return tempi))) 

(setq tampl (times arm tempi)) 

(setq ar«l (subl ami)) 

(bo labell ))) expr) 

The next example makes use of MATCHLFSS (see A.I. memo 
137). We use dashes to mark the ends of e fragment of a 
list. The atoms *var«, -var-, and Jvar$ have the effect 
that they put the pattern variable which follows them In the 
var mode. 

arguments of f ■ ((- -)) 
(T : (pr«d (- -)(>)) 
value of f it T 

arguments of f - ((»*-)) 



(() : (pred (-3-) () )) 

((-a-): (fen (( () < a ) (- a . < . _ )} ( _ a _j , > 

(T : (pred a a)) 

(T : (pred {- -) () >) 

value of f ■ () 

arguments of f ■ (t-h-)) 
< () : (pred (-b-> ())) 

( ("b-> : (fen (( () < b) ( -b- < - -) ) (-b-) )) 

(C) : (pred b a)) 

(T : (pred (- -) ())) 

value of f ■ () 

arguments of f • ((-a b-)> 

(C) : (pred (-a b-) () )) 

((-a b-) : (fen (( () < a ) (. a b . < .,,_>, ( . a b _, ,, 

(T : (pred a a )) 

( () : (pred (-b-) () )) 

( (-h-) : (fen ( (a < b) < -h- < - -)) (- h -> )) 

( O < (pred b a)) 

( T : (pred (--)<))) 

value of f • T 

In this case IMAGE Rives 
(defprop f 

(mlambda («arRl) (proR ("tempi) 
labell (cond ((asslj-n? (*ar*l> ()) (return T>>) 

(assign ((»var« =tenpl) (*var* •arrl)) (.ar K l)> 



(cond ((assign? -tempi a> («o lahel2>) ) 
1abe12 (cond ((asslRn? (-arnl) () ) (return ())) 

(assign ((-var- "tempi) <<var* *ar*l)) (-arpl)) 
(cond ((assign? -tempi a) (eo lahell))) 
(ro labell))) fexpr) 

In the above mlambda causes (*argl) to be assigned to the 
list of arguments of t . The general I zed assignment 

statements of MATCHLESS are "assign" and "assign?". 

For some purposes In functional abstract Ion, minimal 
homomorphlc Images are not Ideal representatives of 
f unct Ions. The predicate sequence of an element of a 
protocol Is defined to be the sequence of values taken on by 
the predicates of the protocol from the beginning of the 
protocol to the element. If h Is a homomorphlsm then we say 
that h Is a branch preserving homomorphlsm If h(a) ° h(b) 
Implies that the predicate sequence of a Is an Initial 
segment of the predicate sequence of h or vice-versa. We 

shall call a minimal branch preserving homomorohlc Imane a 
blmage. For example a blmage for the above protocol Is 

(defprop f 

(mlambda (*argl) (prog ( "tempi) 

labell (cond ((assign? C*argl) ()) (return T))) 

(assign ( (=var* ■ tempi) (»var« *argl ) ) (*argl)) 

(cond ((assign? "tempi a) (go label3))) 
labelZ (cond ((assign? (*argl) ()) (return ())) 



(assign (f-var- -temp2) (*var* *arRl>) (*ar*l)) 
(cond ((assign? -tempi a) (no laboll))) 
(eo labell) 
label3 (cond ((asslnn? (*ar*l> ()) (return ()))> 

(assign ((-var- -tempi) (*var* *arRl)) (-ar*!)) 
(cond ((assign? -tempi a) (*o labell))) 
(*o labell))) fexpr) 

Blma K es have certain advantages and disadvantages compared 
to Images. As Illustrated above Images are almost always 
smaller. On the other hand blmaees take less time to 

compute and are easier to modify In case of error. To 
correct a blmage It Is necessary only to break some of the 
feed back loops and Insert more code. 

One of the most Important applications of functional 
abstraction Is for the problem of making the robot do some 
task after It has seen several examples of how the task Is 
done. Suppose that we want the robot to take all the blocks 
out of a box and stack them In a tower at the place P. We 

Place three cubes In the box and then take them out one by 
one as the robot watches and stack them at P. After 

observln* the example we would like for the machine to write 
out a protocol something like the following: 

( In blockl box) 

(In block2 box) 

(In block3 box) 

(erase (In blockl box)) 



(assert (above blockl P)) 
(assert (on blockl table)) 
(erase (In block2 box)) 
(assert (above block2 P)) 
(assert (on block2 blockl)) 
(erase (In block3 box)) 
(assert (above block3 P)) 
(assert (on block3 hlock2)) 
(finished) 

If we did the same thing again only with two blocks Instead 
of three at the place Q we would expect the folowlng 
protocol : 

(In blockl. box) 
(In block5 bo*} 
(erase (In block** box)) 
(assert (above block** Q>> 
(assert (on block* table)) 
(erase (In blocks box)) 
(assert (above blocks Q)) 
(assert (on blocks blockU)) 
(finished) 

We compute the following Ima^e of the above protocols: 

(thproR (Svarl $var2 Svar3) 

(consequent (tower at Svarl)) 



(thcond ((not (eras«» (In Jvar? hox))) (finished))) 
(assert (above Svar2 Svarl)) 
(assert (on $var2 table)) 
labell (assign (SvarS SvarS) $var2) 

(thcond ((not (erase (In (Svnr* $var?) box)) 
(finished))) 

(assert (above Svar2 Svarl)) 

(assert (on Svar2 Svar3)) 

(*o labell)) 

We can convert the above Ima*e Into a function that builds 
towers by Interpolat Inj* the commands necessary to carry out 
the state changes: 

(t*WOR (Svafl $var2 SvarS) 

(consequent (tower at Svarl)) 

(thcond ((not (erase (In Svar2 box))) (finished))) 
(pickup Svar2) 

(assert (above $var2 Svarl)) 
(move-to Svarl) 
(assert (on Svar2 table)) 
( lower-arm- to-con tact) 
(release-cube) 

(check-scene (on $var2 table)) 
labell (assign (SvarS SvarS) Svar?) 

(thcond ((not (erase (In (SvarS Svar2) box)) 
(finished))) 



(pickup $var2) 

(assert (above $var7 Svarl)) 

(move-Co Svarl) 

(assert (on Svar2 Svar3)) 

( 1 owe r-arn- to-con tact) 
(release-cube) 

(check-scene (on $var2 ^var^>) 
Uo labell)) 

IMAGE Is an Important technique for function*! 

abstraction for a variety of reasons. IMAGE Is self 

applicable In the sense that Riven IMAGE, we can have the 
machine abstract IMAGE from fragmentary protocols of IMAGE. 
PLANNER Is well suited to the task of construct In* Images 
since It permits snail mistakes to be made In the 

construction without causln* fatal errors. It Is useful to 
allow declarations to be Included with the set of protocols 
to be analyzed. In the case of the factorial function. It 
Is very useful to know that In the set of protocols 
arithmetic Is assumed to be done base 8. Of course once an 
lma*e has been constructed It can used to build further 
Imaees. Thus IMAGE shows one way In which previous results 
can be Incorporated to build up more complicated functions. 
The protocol R lven above whose functional abstraction 
happens to be the factorial function Is a r.ood example of 
how It can be very misleading to say that computers can do 
only what they are precisely told how to do. 



